Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE16/TIPTRIX/LISTING4.PAS

Pascal/Delphi Source File | 1996-11-15 | 342 b | 13 lines

procedure TxDropFile.DefaultProc(var Message:TMessage);
begin
  with Message do
    Result := CallWindowProc(FOldWndProc,
      TForm(Owner).Handle, Msg, wParam, lParam);
end;

procedure TxDropFile.FormWndProc(var Message:TMessage);
begin
  if Message.Msg = WM_DROPFILES thenwmDropFiles(Message)
  elseDefaultProc(Message);
end;